COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.<< 		Print an answer sheet and the source questions  >>
C00004 00003	.every heading(%3USCF Officials Exam. Source,{date},Page {page!})
C00006 00004	{question} QUESTIONS TOTAL.
C00017 ENDMK
C⊗;
.<< 		Print an answer sheet and the source questions  >>
.device xgp
.TURN ON "α%#←→∂\{"
.if xcribl then start "300"
.font 1 "non44"
.font 2 "non44i"
.font 3 "non44b"
.<< compute page size parameters for a given height, width (mills), and
.  left border for a given reduction (%).
.  E.g. layout(10500,7000,1000,100); >>
. recursive macro layout(ht,wid,bord,red)	⊂ select 1;
.  height←ht*30/(red*(charh+2))-2;
.  width←(wid*7+red*2)/(red*4);
.  oddleftborder←evenleftborder←bord*150/red;
.  page frame height high width wide;
.  ⊃
.  layout(9000,6500,1000,100);
.  area text lines 3 to 6;
.  area tabl lines 7 to height IN 4 COLUMNS 1 APART
.  every heading(,%3U.S. Cycling Federation Officials Examination);
.  next page;
.  place text;
.  nofill;
Answer Sheet →Test No. ________   Name ___________________
.fill
For each question, circle the letter corresponding to the best answer.
.  place tabl;
.  nofill
.  count question to 999;
.  repeat ⊂ if question ≥100 then done else next question;
.  skip (if line>48 then 200 else 1);
→{question!}.∂5 ∂7a ∂(11)b ∂(15)c ∂(19)d ∂(23)e
. ⊃
.end "300" else start "tty"
.  height←55; width←78;
.  page frame height high width wide;
.end "tty";
.every heading(%3USCF Officials Exam. Source,{date},Page {page!});
.area text lines 4 to height
.place text;
.fill nojust indent 0,8;
.turn on "\"; tabs 7;
.count page;
.count question from 1 to 999;
.at "@"	⊂ next answer;
.if answer=1 then continue;;
({answer!})#{ ⊃;
.at "+" ans "."	⊂ next answer;
.if answer=1 then continue;;
.ansno←ansno+1;
%2({answer!})#ans.%1 { ⊃;
.
.macro incr(εvar) ⊂
.  if declaration(var)=0 then var←0;;
.  var←var+1;
.  ⊃;
.at "⊗" rul "." quest "∞";	⊂ next question;
.incr("W"&"rul"[1 to 2]);
.ansno←0;
.count answer inline printing "a";  if lines<4 then skip 200;
rul.  quest
.if ansno≠1 then
.  tty←ansno&" answers given to question "&question&" (rul)";
. ⊃
.macro comm 	⊂ begin indent 0,0; "%3Comment:%1 "; ⊃
.macro enc	⊂ end ⊃
.next page
%2NOTE: allegedly correct answers are shown slanted.

.if false then begin "test"
.require "test.pub[c,les]" source_file;
.end "test";
.skip 200;
{question} QUESTIONS TOTAL.
.tty←question&" questions";
.fill nojust
.at "⊗" rul "←" wt ";"	⊂
.gtot←gtot+wt;
.avail←eval("W"&"rul"[1 to 2]);
.availtot←availtot + avail;
rul=wt/{avail},
.⊃
.once center;
%3General Exam questions selected/available by section
.gtot←0;
.availtot←0;
.require "testgw.pub" source_file;
.if gtot≠100 then tty←"General exam question total is incorrect: ">ot;
.if availtot≠question then
.  tty←"General exam questions lost: "&question&" given, "&availtot&" used.";
.skip;
.once center;
%3Road Exam questions selected/available by section
.gtot←0;
.availtot←0;
.require "testrw.pub" source_file;
.if gtot≠75 then tty←"Road exam question total is incorrect: ">ot;
.if availtot≠question then
.  tty←"Road exam questions lost: "&question&" given, "&availtot&" used.";